home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qlib205.zip / QLIB.ZIP / TEST / PLASMA.C < prev    next >
C/C++ Source or Header  |  1997-07-13  |  6KB  |  238 lines
  1. // I stole this from PMODE/W v1.22
  2. // just to show you that sin() and WATCOM works
  3.  
  4. /*****************************************************************************
  5.  
  6.   This is a simple example of some graphics functions in C. I got a bit bored
  7. one day so I decided to make this little plasma. The original idea came from
  8. Jare/VangeliSTeam's VTIRIS and was converted to C just for fun. This program
  9. also makes use of floating point and inline ASM just to show that they do
  10. indeed work under PMODE/W.
  11.  
  12. NOTE: There is a bug in wcc386.  You must be very careful when using ASM {}
  13.   blocks inside funcs when the ASM instruction use parameters given to
  14.   the function.  Hopefully Watcom V11 will fix this.  This program has
  15.   been rewritten to avoid the Watcom Bug. (this bug of course only occurs
  16.   when using iASM - a utility to allow ASM {} blocks to be inserted in
  17.   Watcom C files.)
  18.  
  19. *****************************************************************************/
  20.  
  21. #include <qlib.h>
  22. #include <string.h>
  23. #include <math.h>
  24. #include <video.h>
  25. #include <conio.h>
  26. #include <stdio.h>
  27. #include <stdlib.h>
  28. #include <ctype.h>
  29.  
  30. double pi=3.141592654;
  31. dword scale=2;
  32. dword speed=1;
  33. dword clr1=0;
  34. dword clr2=2;
  35. dword rx=320;
  36. dword ry=200;
  37. dword wait=0;
  38.  
  39. dword spd1=1;
  40. dword spd2=2;
  41. dword spd3=1;
  42. dword spd4=3;
  43.  
  44. dword idx1=1;
  45. dword idx2=2;
  46. dword idx3=1;
  47. dword idx4=3;
  48.  
  49. void editnum(dword * n,dword min,dword max) {
  50.   printf("Enter new #:");
  51.   scanf("%d",n);
  52.   if (*n < min) *n=min;
  53.   if (*n > max) *n=max;
  54. }
  55.  
  56. void editfloat(double * n) {
  57.   printf("Enter new #:");
  58.   scanf("%f",n);
  59. }
  60.  
  61. void main ()
  62. {
  63.   static byte wavetable[256], pal[768];
  64.  
  65.   dword  v, x, y;
  66.  
  67.   byte z,ch;
  68.   byte *vidmem;
  69.  
  70.   byte pos1 = 0, pos2 = 0, pos3 = 0, pos4 = 0;
  71.   byte tpos1, tpos2, tpos3, tpos4;
  72.  
  73.   if (!_fpu)
  74.   {
  75.     printf("No 80387 detected!\n");
  76.     exit(0);
  77.   }
  78.  
  79.   do
  80.   {
  81.     do
  82.     {
  83.       t_setmode(80,25);
  84.       printf("                 Plasma Grafix Demo v1.1\n\n\n");
  85.       printf(" Variables:     Note: Possibly video modes (320x200,640x480,etc.)\n");
  86.       printf("  a) Speed Scale = %d\n",speed);
  87.       printf("  b) Grafix Scale = %d\n",scale);
  88.       printf("  c) Colour #1 (0-2) (RGB)= %d\n",clr1); 
  89.       printf("  d) Colour #2 (0-2) (RGB)= %d\n",clr2); 
  90.       printf("  x) X = %u\n",rx);
  91.       printf("  y) Y = %u\n",ry);
  92.       printf("  1) Speed1 = %d\n",spd1);
  93.       printf("  2) Speed2 = %d\n",spd2);
  94.       printf("  3) Speed3 = %d\n",spd3);
  95.       printf("  4) Speed4 = %d\n",spd4);
  96.       printf("  5) Index1 = %d\n",idx1);
  97.       printf("  6) Index2 = %d\n",idx2);
  98.       printf("  7) Index3 = %d\n",idx3);
  99.       printf("  8) Index4 = %d\n",idx4);
  100.       printf("  p) PI = %.10f\n",pi);
  101.       printf("  v) Vsync checks = ");
  102.       (wait) ? printf("ON\n\n") : printf("OFF\n\n");
  103.       printf("  G) Go Display Plasma\n");
  104.       printf("  Q) Quit\n\n:>");
  105.       ch=toupper(getch());
  106.       switch (ch)
  107.       {
  108.         case 'A':
  109.           editnum(&speed,1,100);
  110.           break;
  111.         case 'B':
  112.           editnum(&scale,1,100);
  113.           break;
  114.         case 'C':
  115.           editnum(&clr1,0,2);
  116.           break;
  117.         case 'D':
  118.           editnum(&clr2,0,2);
  119.           break;
  120.         case 'X':
  121.           editnum(&rx,80,2048);
  122.           break;
  123.         case 'Y':
  124.           editnum(&ry,50,2048);
  125.           break;
  126.         case 'V':
  127.           wait^=1;
  128.           break;
  129.         case '1':
  130.           editnum(&spd1,1,100);
  131.           break;
  132.         case '2':
  133.           editnum(&spd2,1,100);
  134.           break;
  135.         case '3':
  136.           editnum(&spd3,1,100);
  137.           break;
  138.         case '4':
  139.           editnum(&spd4,1,100);
  140.           break;
  141.         case '5':
  142.           editnum(&idx1,1,100);
  143.           break;
  144.         case '6':
  145.           editnum(&idx2,1,100);
  146.           break;
  147.         case '7':
  148.           editnum(&idx3,1,100);
  149.           break;
  150.         case '8':
  151.           editnum(&idx4,1,100);
  152.           break;
  153.         case 'P':
  154.           editfloat(&pi);
  155.           break;
  156.         case 'Q':
  157.           clrscr();
  158.           return;
  159.       }
  160.     } while (ch!='G');
  161.     if (g_getmode (rx,ry,8)==ERROR)
  162.     {
  163.       printf("Video mode not available!\nPress a key...");
  164.       getch();
  165.       continue;
  166.     }
  167.     g_setmode();
  168.     vidmem=malloc(rx*ry);
  169.     if (vidmem==NULL) {
  170.       t_setmode(80,25);
  171.       printf("Out of memory!");
  172.       getch();
  173.       continue;
  174.     }
  175.     g_setbuf(vidmem);
  176.  
  177.     pos1 = pos2 = pos3 = pos4 = 0;
  178.  
  179.     for (x=0;x<768;x++) pal[x]=0;
  180.  
  181.     for (x=0, y=0; x<64*3; x+=3, y++)
  182.       pal[x+clr1] = y;
  183.  
  184.     for (x=64*3, y=63; x<128*3; x+=3, y--)
  185.       pal[x+clr1] = y;
  186.  
  187.     for (x=128*3, y=0; x<192*3; x+=3, y++)
  188.       pal[x+clr2] = y;
  189.  
  190.     for (x=192*3, y=63; x<256*3; x+=3, y--)
  191.       pal[x+clr2] = y;
  192.  
  193.     _int3_();
  194.     for (x=0; x<256; x++)
  195.       wavetable[x] = (int)(30.0f * (1.0f + sin(x * 2.0f * pi / 256.0f)));
  196.  
  197.     g_setpal (&pal);
  198.  
  199.     while (!kbhit ())
  200.     {
  201.       v = 0;
  202.       tpos1 = pos1;
  203.       tpos2 = pos2;
  204.  
  205.       for (y=0; y<ry; y++)
  206.       {
  207.         tpos3 = pos3;
  208.         tpos4 = pos4;
  209.  
  210.         for(x=0; x<rx; x++)
  211.         {
  212.           z = wavetable[tpos1] + wavetable[tpos2] +
  213.               wavetable[tpos3] + wavetable[tpos4];
  214.  
  215.           vidmem[v ++] = z;
  216.  
  217.           tpos3 += idx3*scale;
  218.           tpos4 += idx4*scale;
  219.         }
  220.  
  221.         tpos1 += idx1*scale;
  222.         tpos2 += idx2*scale;
  223.       }
  224.  
  225.       if (wait) g_waitvsync();
  226.       g_copy();
  227.  
  228.       pos1 += spd1*speed;
  229.       pos2 -= spd2*speed;
  230.       pos3 += spd3*speed;
  231.       pos4 -= spd4*speed;
  232.     }
  233.     getch();
  234.     free(vidmem);
  235.   } while (1);
  236. }
  237.  
  238.